home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / ddfedit.zip / DDFMAIN.FRM < prev    next >
Text File  |  1996-02-04  |  3KB  |  110 lines
  1. VERSION 2.00
  2. Begin MDIForm MainForm 
  3.    Caption         =   "MDIForm1"
  4.    ClientHeight    =   6690
  5.    ClientLeft      =   495
  6.    ClientTop       =   2085
  7.    ClientWidth     =   9660
  8.    Height          =   7380
  9.    Left            =   435
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   1455
  12.    Width           =   9780
  13.    Begin SSPanel PanMain 
  14.       Align           =   2  'Align Bottom
  15.       Alignment       =   1  'Left Justify - MIDDLE
  16.       BevelInner      =   1  'Inset
  17.       BevelOuter      =   0  'None
  18.       BorderWidth     =   1
  19.       ForeColor       =   &H00FF0000&
  20.       Height          =   330
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       Top             =   6360
  24.       Width           =   9660
  25.    End
  26.    Begin Menu mFile 
  27.       Caption         =   "&File"
  28.       Begin Menu OpenDict 
  29.          Caption         =   "&Open/New"
  30.       End
  31.       Begin Menu Quit 
  32.          Caption         =   "E&xit"
  33.       End
  34.    End
  35.    Begin Menu mwin 
  36.       Caption         =   "&Window"
  37.       Begin Menu Arr 
  38.          Caption         =   "&Cascade"
  39.          Index           =   0
  40.       End
  41.       Begin Menu Arr 
  42.          Caption         =   "Tile &Horizontal"
  43.          Index           =   1
  44.       End
  45.       Begin Menu Arr 
  46.          Caption         =   "Tile &Vertical"
  47.          Index           =   2
  48.       End
  49.       Begin Menu wlis 
  50.          Caption         =   "Window &List"
  51.          WindowList      =   -1  'True
  52.       End
  53.    End
  54. End
  55. Option Explicit
  56. Dim Inited As Integer
  57.  
  58. Sub Arr_Click (index As Integer)
  59.   Arrange (index)
  60. End Sub
  61.  
  62. Sub MDIForm_Activate ()
  63.   If Inited = True Then Exit Sub
  64.   BtrStart
  65.   OpenDict_Click
  66.   Inited = True
  67. End Sub
  68.  
  69. Sub MDIForm_Load ()
  70.   Width = Screen.Width * .75
  71.   Height = Screen.Height * .75
  72.   left = (Screen.Width - Width) / 2
  73.   top = (Screen.Height - Height) / 2
  74.   
  75.  
  76.  
  77. '  Load FormFileDDF
  78. End Sub
  79.  
  80. Sub MDIForm_Unload (Cancel As Integer)
  81.   BtrStop
  82. End Sub
  83.  
  84. Sub OpenDict_Click ()
  85.   Dim FileForm As New FormFileDDF
  86.   
  87.   Load FormGetPath
  88.   
  89.   FormGetPath.Caption = "Select Directory for Dictionary Files"
  90.   FormGetPath.Show 1
  91.   If NewDictPath <> "" Then
  92.     If FileExist(NewDictPath & "FILE.DDF") Then
  93.       Load FileForm
  94.       FileForm.XPath.Text = NewDictPath
  95.     Else
  96.       If MsgBox("No Dictionary in Specified Directory " & NewDictPath & Chr(10) & "Do You wish to Create a new One", 32 + 4, "Error Opening Dictionary") = 6 Then
  97.         DictionaryCreate NewDictPath
  98.         Load FileForm
  99.         FileForm.XPath.Text = NewDictPath
  100.       End If
  101.     End If
  102.   End If
  103.   status ""
  104. End Sub
  105.  
  106. Sub Quit_Click ()
  107.   Unload Me
  108. End Sub
  109.  
  110.